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sua REMA aaa 


La fait tout drôle, on parle de CLIVE SINELAIR dans les magazines informatiques! 
Le 256 commence à faire parler de lui un peu, Au cours des derniers mois, il y a 
eu des essais dans SCIENCEAUIE MICRO, COMPUTER SHOPPER et même PC MAGAZINE. BYTE 
ne devrait pas tarder selon mes sources. La critique de SCIENCEWIE MICRO est 
assez bonne, mais on nous révèle que le Z88 ne supporte pas les accents français 
ù l'écran ce qui me déçoit un peu. Dons COMPUTER SHOFFER, c'est l'éditeur STAN 
MIET qui nous dit ce qu'il pense du 298, En général, le 209 se tire bien d'af- 
fqira, En ce qui concerne PC MAGAZINE, STEPHEN MANES n'est pas le plus ordent 
FAN de DHELE CLIVE. Son principal reproche est Le prix. À 3564 US, le 288 n'est 
pas “cheap”, En plus; il fout compter La mémoire additionnelle, ce qui élève la 
facture pas mal, Un TOSHIBA 11698, um LAPTOP compatible PC avec un lecteur 3,5" 
72K) et SLX, coût 3888 LE, Le 288 avec son petit 32K RAM na fait pas le poids 
vraiment. En plus, il n'est pas IBĦ compatible, ce qui est un crime passible 

de sort par ċcortàlement dans ce magazine... 

GLIOG met à La disposition des ses distingués lecteurs une Librairie de 
logiciels du domaine publique, Ces logiciels sont disponibles contre une modique 
somme pour couvrir les frais d'envoi, Les lecteurs sont invités à contribuer à 
cette librairie. Les contributions seront récospensées pur échanges de logiciel. 
Si vous m'enyouez J programmes, je yous renvoie 5 programmes à votre choix à mes 
frais, Les programmes doivent être du domaine publique, c'est-à direpas des 
copies pirates! 


BL DONC est réalisé avec l'aide du logiciel FRONT PAGE EXTRA, 
L'impression se fait lentesent sais sûrement sur une imprimante STAR IX-1888 


REDACTEUR : Réal Gagnon, 4878 ave, HENRI-JULIEN, MONTREAL QUEBEC CANADA 
H2T 2E1 


B INPUT <-> OUTPUT 


Pourquoi ne pas avoir de l'ordre dans vos programmes. 


Quand nous regardons un “directory” il est facile de se retrouver s'il y a des 
extensions oux fichiers, 


Par contre si nous retrouvons des B1,B2,83,.....,.818, il est difficile de 
savoir si c'est un programme basic; une routine machine etc. 


Voici quelques extensions utiles. 


BRS programe BASIC 

EXEC ou EXE pour EXECutable 

BIN pour langage machine 

PIC ou SCR pour écran de 32K (LBYTES noa,131072) 
JAGĦ source fċSembleur 

LUM DüCumentation (pour QUILL) 


Yves Gagnon 


Il est bien vrai que cela serait bien plus Facile a retrouver quoi est quei?!? 
Spécialement si il y a une cinquantaine de Fichier sur disquette. 


Si l'en voit DEMO dans an BIRECTORT, est-ce un programme BASIC (RUN)? Gn pro- 
arane en langage machine (CALL)? Gu ua programme MLTI-TASL(EXEC)? Mais si ilg 
a BENG BAS, alors (à plus d'hésitation! 


Mais si il-g a BENG BRS, BED BIN, DENO_EXE quoi Faire pour débuter Le programme 
BEMO? Alors il serait une bonne idée de mettre un BENG RODT, qui se chargerait 
de débuter Le tout sans problène... 

K. 


Y a-t-il un programme seabloble à GPRINT PRT, mais plus rapide 7 


Peut-on effacer toutes les cellules d'ABRCUS, sauf celles contenant des formules 
et ce, sans entrer des zéros dans chaque cellule une après l'autre 7 


Jean-Cloude Touzin 
La Sarre Québec 


Si U inpressien avec CPRINT PRT prend du tenps, cela est plus La faute de L'in- 
prisente que celle du programme, En effet CPRIAT_PRT utilise U imprimenta en 
node graphique, chaque petite colonne de peints est l'équivalent d'un caractère. 
Le seul moyen d'obtenir un copie rapide de l'écran est de produire wa dessin 
plus petit à L'inprinente. Il g a ua progranze du donaire publique appellé 
ROBIN qui est l'équivalent de CPRINT_PRT, sauf que La copie d'écran est sur La 
verticale eu Lieu d'être horizontale, L'inage est plus petite donc plus rapide à 
être produite. Ecrivez à OL_B6C pour l'obtenir, voyez La procédure dans ce numé- 
ro pour obtenir Les logiciels du domaine publique. 


BBALUS n'a pas de commande pour effacer seulement Les valeurs et laisser les 
foraules intactes, cependant il y a soyen de s'en sortir. 


Contrairement à LOTUS 123, ABACUS n'offre pas de MACROS. Ene MACRO est wne com- 
binaison de touches qui exécutent une série de comandes à chaque fois qu'elles 
sont eppugżes, Cependant avec Le programme KEYDEFIRE, il est possible de redéfi- 
nir disons RLT-E pour qu'une série de connonde RUBOUT soit exécutée pour effacer 
les valeurs. Peut-ètre aussi que La commande ALTREY du SUPER TOELKIT II pourrait 


faire l'affaire sais je n'ai pas vérifié. Une autre solution serait de garder 
une version de notre Feuille de calcul avec aucune valeur dedans. Et La charger 
à chaque fais que nous voulons repartir à zéro. Mais cela est utile seulenent 
si où travaille avec un lecteur de disque ou un disque virtuel car avec Les jidvs 
le tenps de chergenent est un peu Long. 

it-8 


Asinclnir neus 


Dans Le QL REPORT de janvier 1998, on rapporte l'existence d'une nouvelle 

version de ARCHIVE. Il s'agit de la version 2.38; celle que l'on connait est la 
version 2.% . La nouvelle version permet un fichier INDEX de 64K contrairement 
à 32%. Ces fichiers INDEX sont en usage lorsque l'on utilise la commande ORDER. 


MIRACLE SYSTEMS serait sur le point de mettre sur le marché un interface MIDI 
pour le BL, bientôt ,.. 


(TL EEE TE EEE EEE EEE ETEEEEETE sreanaazzzons LUL Ea EFA DLAT L KA AS EEA Er ES tat 
fi tous ceux qui ont des PC compatibles, rappelez-vous ceci: 
Vous étes de noins en mins compatible de jour en jour ... 


WPPLE sessnunnnsesecoasosoaseecesaososanossooacsoaasnrocoonecee ss eeossazzzonnna 


Saviez-vous que le F.D.G. de APPLE COMPUTER, John Sculleg; a été vu avec un 288 
à la maini 


TEXT8? est un traitement de texte produit par SOFTUREEB7, Plusieurs publicités 
ont apparu dons QUANTA pour annoncer la venue du “ADVANCED VORDPROCESSOR FOR THE 
SIHCLAIR QL". Il se déclare plus rapide, plus performant que QUILL, Son point 
fort étant le graphique. D'après ce que j'ai vu, il serait du genre de HICROSOFT 
KORD du PC. Malheureusement si on oublie la publicité, je n'ai pas encore vu de 
commentaire dans aucun magozine/neusletter, alors prudence, Son prix de vente 
est de £48, 

Pour plus d'informations, écrire à : SOFTUARERZ 33 SAVERNAKE RORD LONDON NIE 

ENGLAND, 


WATTER 


Les logiciels du BL ont la mauvaise habitude d'être protégés, Lors de leur 
utilisation, ils obligent l'utilisateur à insérer L'original dhabituellement un 
udv) pour rendre la copie valide. Un des pires exemples de ce genre est 
L'ASSENBLER WORKBENCH de TALENT, Ce logiciel est L'un des meilleurs du genre sur 
n'importe quel ordinateur que je connaisse, mais l'obligation d'insérer 
l'original gèche tout! 


MATTER da ZITASOFT vient à la rescousse et permet de faire outont de backup de 
ta udy-clé que L'on veut; et on peut méme avec un peu de patience, modifié un 
logiciel pour qu'il n'est plus besoin du tout de Uoriginal; j'ai maintenant 
BORA de PSION sur disquette et nul besoin de l'original dons vi, Il est à 
noter que les anciennes versions de MATTER contenait un program appellé 
'EPROM BEST qui permettait de lira un EPROM et de la transformer en fichier 
exécutoble, Malheureusement la nouvelle version laisse tosber “cette utilitaire 
très utile"... Disponible chez CURRY COMPUTER. 


RÉ E nn sante rennes ia a fee AO. 


FLASH est un logiciel pour la création d'un RAMDIZK (possibilità de 8 RAMOSO „Le 
RAĦDIEK est appellé DISQUE VIRTUEL en français car il réserve une partie de la- 
mémoire pour éguler un lecteur de disque, ce qui a pour effet de réduire drama- 
tiqjement le temps d'accès, Mais ce n'est pas tout, GFLASH se dit le plus rapide 
de tous les RAMDISKS et il est denmique; i.e. qu'il prend de la mémoire seule- 
ment si il en à besoin, d'où aucune perte de mémoire inutile, Avec AFLASH; il y 
a quelques utilitaires qui méritent quelques lignes. 


AUTASPOBL qui consacre un RAĦDISK à U impression multi-tàche, Ex. Dons GUILL; on 
imprime dans Le RAMDISK et non à U imprimorita; on retourne dons QUILL pour 
continuer à travailler, et GFLASH imorine le texte à U imprimarita pendant ce 
temps, 

MBOLORD transfert le contenu d'un pdy dans un RAMDISK en quelques secondes, 
FBACKUP fait Le chemin inverse d'un RAĦDISK à un udo, Et plus encore... 


FLASH est disponible sous différentes configurations: dv, disquette, ROM; ily 
a mêne un UPGRADE pour la ROM de l'interface de disque CUMANA pour qu'elle con- 
tienne QFLASH, Disponible chez CURRY COMPUTER, 


SRI: saines KO EEE ES PET ELITE TITLES EEE TETE PEER 


SEP III est un programmeur d'EPROMs produit par CARE ELECTRONICS. Le logiciel se 
trouve sur RIĦ, et est appellé du SUPERBASIC avec la commande EPROM, Le logiciel 
est tout simplement superbe, il supporte les EPROMs 2716 jusqu'au 27512. Le 
Pin-out de L'EPROM est montré à l'écran. Il U a une option pour redéfinir 


totalement la pin-out de L'EPROM à progresser, fuec U'avenement des systèmes 16- 


FE bits, il est nécessaire de "splitter" les codes car les EPROMS fonctionne sur 
cj, BEP IH offre retta option, 


= 


Evidemment on peut Lire un EPROM, ou charger un fichier binaire pour Le copier 
sur EPROM. GEP II supporte 3 protocoles pour les fichiers hexadċcimgux utilisés 
lors des transaiss ions téléphoniques, il s'agit du protocole HEX simple, GEP III 
ou MOTOROLA. Ceci est vrai pour la sauvegarde également, on peut la faire 
suivant un certain protocole, SEP III offre un mode d'édition de la mémoire très 
facile à utiliser, 


En résumé, QEP III est un produit professionnel qui fait honneur ou OL! 
Disponible chez GAGHON ELECTRONIQUE. 


SUPERBASIC ... TRUCS & ASTUCES 


Détection du mode vidéo 


Cette méthode est valable seulement oprès un RESET. On vérifie la valeur 
présente à l'adresse 162894. 


Si on fait PEEK 163838 et on trouve 8, on est en mode MONITEUR, si c'est 1, 
on est en mode TU. : 


Mise hors fonction de BREAK 


On peut faire POKE_L(163909),0 , et CIRLHESPACE n'a plus d'effet, Pour 
revenir à la normale, on reset la valeur originale à cette adresse, Cette 
valeur peut varier salon la version de RM, Il s'agit donc de la garder en 
mémoire, 


Ex, IB LET breckon=PEEK_L (163968) 
28 POKE L (163908) ,8 
38 FOR l-8 TO 1888 
48 PRINT 'BRERK inactif..." 
96 END FOR i | 
68 POKE L (163980) ;breakon 


Mauvaise influence des autres BASICS 


Si l'on veut attendre qu'une touche soit appuyée pour que l'exécution d'un 
programe 5e poursuivre, 


BASIC -} 108 as-INKEVS:IF af="" THEN GOTO 188 
SUPERBASIC-) 190 at-INKETS l-1) 


Le parasètre -1 attend qu'on appuie une touche. La variable af contient La 
touche œppuyée. 


Si on veut vérifier la réponse a une question; on prend la précaution de 
vérifier La réponse majuscule/minuscule. 


BASIC -> 100 IF rep£="0" OR rep$="o" THEN … 
SUPERBASIC-) 108 IF rept="o": ... 


On remorque que = vérifie les 2 alternatives soit la 8 où le è . On note 
également que le THEN est optionnel, il est remplacé par i. 


Si Uon veut faire un boucle de temps, 


BASIC -> 100 FOR i=0 TO 1008 : PRINT i, : NET i 
SUPERBASIC-> 188 FOR i=8 TO 1868 : PRINT i; 


Lorsqu'on a une boucle sur une seule Ligne, le KEXT ou le ENS FOR est 
optionnel. 


Pour une pause dans Un programme. 


BASIC -> 198 PRINT “Une touche pour continuer... 
289 as-IMKEVS:IF 0$="" THEN COTO 280 
SWPERBASIĊ-) 188 PRINT “Une touche pour continuer...” :PAUSE 


La comsonde PAUSE sons paramètre est l'équivalent de INKEY#(-1) mais on a pas 
besoin de wriabla, 


Le directory d'une disquette ou d'un pdy peut être très Long, Pour clarifier les 
choses, les programmes devraient avoir une extension pour définir Le type de 
fichiers ( voir INPUT<-)OUTPUT ). Ou encore mieux, il est possible de mettre des 
commentaires directement dans le directory. 


EXEMPLE : MEN 
SAE “flpl_Les progronnes suivants" 
SRE “flpl_font portie intégrante" 
SAVE "flpl_de ma collection d' utilitaires” 
SRE" il l EA 
DIR fipi. 


Pour la cosaande PRINT : PRINT “test” et PRIHT 'test' sont équivlents. 
La deuxièse façon est à préférer car elle est plus rapide. Cela est vrai pour la 
comande INPUT aussi. 


Qui, vous pouvez composer des numéros de téléphone avec votre GL.Ubici un 
circuit simple qui demande très peu de composants. Ce circuit va se brancher dans 
la prise HET i. 


Notons sur le schéma électronique le contact relais est en série avec la 
téléphone qui ajoute L'impédance de la ligne téléphonique, c'est très 
iaportant.Le montage ne doit pas poser de problème, à condition de bien 
respecter le brochage du transistor et de la polarité de La dicde.Si la 
conposition du numéro est fausse, vous n'aurez qu'à changer la valeur de la 
résistance 3.3k ou du condensateur 18Mf.Enfin l'alimentation se fera à partir 
d'une pile 9 volts, 


Pour composer directement un numéro sur la ligne téléphonique, il suffira de 
décrocher Le téléphone, d'attendre la tonalité et de demander La numérotation 
gutosatique à l'ordinateur, pour que suit composé Le numéro automatiquement. 


Veuillez taper les quelques lignes de programmes pour juger: du bon 
fonctionnement du circuit. 


Dans Le prochain numéro de @L_DOC paraîtra un programe fichier pour votre 
composeur téléphonique. 


SRE 
LISTE DES COMPOSANTS : 4008 BL. Fi H, 


(419) 327-1818 


t- résistance 3,3k 1/4. 
1- condensateur 18 Mf 16 volts. 
i- transistor 233904 

i- diode 144001 

i- relais 9 volts. 

1- batterie 9 volts. 


LICHE 
w+ TELEPHONIQUE 


120 REMark sssr 

148 : 

154 init 318 PAUSE 48 

168 : 320 END FOR c 

178 DEF ine PROCedure init 338 PRINT 

188 CLS:CSIéE 8,1 348 END REPeat loop 
198 ZSF ILLS CHR (255) 150) 358 END DEFine init 
288 a$="123-4567" 368 : 

218 REPeat loop 374 DEFine PROCedure composition (NUMEFO) 
278 INPUT “Entrez le numero : 7;b$.— 388 FOR x=1 TO numero 
288 IF b$O"" THEN LET at-0$ 390 OPENMLA;nata B 
248 FOR c=1 TO LEN(Af) 488 PRINTHIS;z5; 

250 LET a=COÛE (af (c)) 418 CLOSE#IB 

264 PRINT afio; 428 END FOR x 


278 IF'aċd8 ma 0357 THEN NEXT c 438 END DEFine composition 
268 LET numsa-45 


298 IF numsa THEN num-18 
288 composition num 


L O6 T CE UT 


OL_DOC offre à ses lecteurs des 
logiciels du domaine publique, 

Ces logiciels peuvent être dis- 
tribuer librement. Le seul coût 
est celui des frais d'envoi, à 

moins d'avis contraire, 


Commander selon les groupes 
proposés s.v.p. Chaque groupe 
coûte $2 de frais d'envoi. Uous 
devez fournir les uDUs ou les 
disquettes (3.570/53.2372. 


GROUPE #1 : Gestion de bibliothèque de logiciels. 


programe ARCHIVE english version available...) 


CROUPE #2 : CAPSTATE EXE état de CAPSLOCK 
(LOCK divers type d'horloge à l'écron 
SPODLER EXE pour imprimomte 
NLO OBJ caractères NLO pour EPSON Fx38 
SOUHD_BRS PO 
BEEPCAPS_BIN „Emet un son lorsque CAPSLOCK 
BLANK_EXE Æteint L'écran après un temps 
LABELS BAS Etiquettes pour imprimante 
DLO_BAS «Etiquettes pour disquette 

CROUPE #3 : FONT BAS création de police de caractères 
FONT_RSP .utilistation des polices 
FONTS AL diverses polices de caractères 
SEDIT_BAS éditeur de texte de TONY TEBBV 
PLAY_CON nouvelle commande sonore 
NOBRERK. BIN mise hors fonction de ERERK 
ZOOM_EXE agrandissement d'écran 
LIKK_ERS jonction d'extension machine 
(LE BIH touches fonctions maintenant utiles 


P.S.Uos contributions sont les 


bienvenues! 


Les programmes 


doivent étre du DOMAINE PUBLIQUE! 


GENERATEUR de CALENDRIER (version 2) 


Dans un nunéro précédent de SIN, j'avais présenté un générateur de calendrier 
mais j'utilisais alors la méthode traditionnelle du quadrillé pour afficher le 
calendrier. Cette fois-çi, j'emploie une fenêtre pour chaque date ce qui 
permet, entre autres, d'afficher facilement des messages pour chaque date. Il 
est donc facile d'afficher "Fête à Moi" dans la fenêtre correspondant à 
l'anniversaire. De plus, j'ai inclus une routine permettant d'afficher un 
évenement pérodique. Je pense içi à quelqu'un qui travaille 7 jours et est en 
congé 7 jours et qui se demande si le 22 septembre il travaillera car il veut 
un prendre un rendez-vous chez le dentiste (...). Comme il lui est facile de 
savoir qu'il a commencé un période de travail le 9 mars 1988, disons, il n'a 
qu'à entrer cette date avec quelques détails additionnels et le QL affichera 
un 'T', si cette lettre a été choisie, pour indiquer les jours de travail pour 
le mois affiché à l'écran. La longueur des périodes peut varier, mais les deux 
périodes doivent être de même longueur (7-7,5-5,3-3,...) et la longueur des 
périodes demandées par le programme est un période simple (pour un 7-7, il 
s'agit de 7 et non pas 14), 


Tout ceci pourrait être changé facilement car le programme est un suite de 
procédure. Par exemple, je pense entre autres choses à faire calculer 
certaines données astronomiques pour jour du mois. 


GPRINT PRT doit être sur la même cartouche que ce programme. 


NDRL. Si vous utilisez le programme sur disquette, changez les MDVs pour des 
FLPs. 


Jean-Claude Touzin 
C.P. 41 La Sarre 
Québec 997 2X4 (819)333-2175 


100 REMark ROM JS 

105 REMark calendrier bas par JC Touzin Qc 

107 : 

110 DEFine PROCedure dc (canal) 

120 DELETE 'mdv' & canal & ' calendrier fenetre' 
130 DIR "ndv" & canal & "_" 

140 SAVE "ndv" & canal & ' calendrier fenetre" 
150 DIR 'mdv' & canal & IP 

160 END DEFine dc 

165 : 


170 DEFine PROCedure debutons 


180 
190 
200 
210 
220 


230 
240 
290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 
330 
540 
990 
360 
570 
580 


a=RESPR(512) 

LBYTES mdvl gprint prt,à 

WINDOW 512,206,0,0:PAPER 0 

FOR cans4 TO 41: OPENtcan, ser: END FOR can 


END DEFine debutons 
225 : ; 
DEFine PROCedure principale 


CSIZE 2,1 
CLS: PRINT “Valable à partir du 15 oct.1582" 
INPUT), "Mois (1-12)? 7;mois 
INPUT\, "Année (aaaa}? “;an 
CLS 
SELect ON mois 
=} TO 2: fact pj= janv fev (1,mois,an) 
=3 TO 12: fact pj= autres mois (1,mois,an) 
END SELect 
p_jour= fact pj-(7*INT(fact p3/7)) 
IF p_jour=0: p_jour= 7 
SÉLect ON mois 
sl:mois$="Janvier":d jour-3l 
2:mois$="Février":d_jour-28:[F INT(an/4)=an/4 THEN d_jour-29 


o =J: nois$="Mars*:d_jour=31 


=4:mois$="Avri}":d_jour=30 
=5:nois$="Mai":d_jour=3} 
=6:m0is$="Juin":d_jour=30 
=7:mois$="Juillet":d_jour=31 
=8:nois$="Août":d_jour=31 
=9:mois$="Septembre":d_jour=30 
=10:nois$="0ctobre":d_jour=31 
=]l:mois$="Novembre“:d_jour=30 
=12:mo1s$="Décembre":d_jour=31 
END SELect 
quantieme 
nos _an$=no15$ & " “ & an 
CSIZE 2,0:AT 0,0: PRINT “ DIM LUN MAR MER JEU VEN SAM" 
PRINT#41, “ “mois an$; 
canal=p_jour+3 

FOR jour=1 TO d_jour 

CSIZEtcanal, 2,1 

PRINT#canal, jour; 

canal=canal+i 
END FOR jour 


ee e ne un—-——-—— 


590 FOR fenetre=4 TO 41: CSIZEtfenetre, 0,0 

600 END DEFine principale 

605 : 

607 : 

608 WINDOW 512,256,0,0:PAPER 0:CLS 

610 debutons 

620 REPeat calendrier 

630 CLSH 

640 PRINTAO,, "1 Afficher un mois"; 

650 PRINT#0,, "2 Imprimante”; 

660 PRINTHO,, 73 Afficher un message" 

670 PRINTAO,, "4 Afficher une période"; 

680 PRINT#0,, “Taper 1, 2, 3 ou 4° 

690 c$=INKEYS(-1) 

700 IF c$C)"1" AND c$()"2* AND c$()"3" AND c$()"4" THEN GO TO 690 
710 IF c$=1 THEN principale 

720 IF c$=2 THEN imprimante 

730 IF c$=3 THEN message 

740 IF c$=4 THEN periode 

750 END REPeat calendrier 

755 : 

760 REMark FOR canal=4 TO 41:CLOSEtcanal:END FOR canal 
765 : 

770 DEFine FROCedure imprimante 

780 OPENA3, ser: PRINTS, CHRS(27); 707; CLOSEĦ3: REMark 1/8" interligne 
790 CLSH 

800 CALL a:REMark GPRINT_PRT 

810 END DEFine 

815 : 

820 DEFine PROCedure guantieme 

830 x=16: y=10 

840 FOR canal=4 TO 40 

850 fen canal,x,y 

860 x=x+66 

870 IF x)470:x=16:y=y+32 

880 END FOR canal 

890  WINDOW#41,330,32,148,170:PAPER#41,0: CLS441 
900 CSIZE#41,2,1: INK#41,7: BORDER#41, 4,7 

910 END DEFine quantieme 

915 : 

920 DEFine PROCedure fen (canal,x,v) 

930 WINDOWtcanal,66,32,x,y 

940  PAPERtcanal,0: CLStcanal: INKtcanal,7 

930  BORDER#canal, 1,7 

960 END DEFine fen 

965 : n 


FARRELA! g 


U 


-— SUDA II 


HAS HAr ar 


ji 
redonne à ti lesta 


al À (5aNBHA i 
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970 DEFine PROCedure message 
980 CLS 40 
990 INPUT #0, "Quelle date voulez-vous afficher un message (1-31)? 
';date n 
. 1000 fen m- (date m +'p_ jour + 3)-1 
1010 PRINT #0, "Vous avez de l'espace pour 2 messages..." 
1020 INPUT 40, "Premier message (6 caractères]: “mess 2$ 
1030 INPUT 40, "Deuxième message (10 caractères): ';mess 3$ 


1040 AT fen m,1,4: PRINT #fen m, ness 2$ 

1050 AT tfen m,2,0; PRINT #fen m, ness 3$ 

1060 END DEFine message 

1065 : 

1070 DEFine PROCedure periode 

1080 CLSH 

1090  PRINT#0, "Date de début d'une période précédant le mois affiché." 

1100  INPUT#0, "Jour (1-31)? ";jp;" Mois (1-12)? "mp; Année (ex. 
1987)? ';ap 

1110 INPUTHO, “Lettre identifiant cette période (t=travail, c=congé...}? 
'; id $ 

1120 INPUTHO, “Signification de cette lettre? '; sign$ 

1130 INPUTHO, “Longueur de cette période {jours}? '; long p 

1140 SELect ON mp 

1150 = 1 TO 2:factp=janv fev(jp,mp,ap) 

1160 = 3 TO 12:factp=autres moIS(jp,mp,ap) 

1170 END SELect 

1180  jour=1 

1190 SELect ON mois 

1200 = 1 TO 2: factusjanv fev(jour,mo1s,an) 

1210 = 3 TO 12 : factm=autres mois(jour,mois,an) 

1220 END SElect 

1230 affiche p : REMark PRINT factp: PRINT factm 

1240 END DEFine periode 

1245 : 

1250 DEFine FuNction janv_fev (jour, mois, annee) 

1260 RETurn 
365*anneetjour+31*{mois-1}+INT((annee-1}/4)-INT(.73*(INT(((annee-1}/100)#1)}) 

1270 END DEFine janv fev 

1275 : 

1280 DEFine FuNction autres mois (jour,mois,annee) 

1290 — RETurn 
365tannee+jour+31*(mois-1}-INT(.4*moist2.3)+INT(annee/4)-INT(.75*(INT(annee/1 
00)41)) 

1300 END DEFine autres mois 

1305 : 


1310 DEFine PROCedure affiche p 

1320 jour pa = ABS (factm - factp) 

1330 pos debut-jour pa MOD long p: periode un= long p -pos_debut 
1340 canalsp jour + 3 

1350 test pair: {jour pm DIV long p) 

1960  IF-test pair/2=. INT (test_pair/2) 
1370 - ` pointeur$= id_p$ 

1389 ELSE 

1390 pointeur$= ' 

1400 END IF 

1410  ATH1,0,35: PRINTHL, id_p$;"= ';siga$ 
1420 FOR jour=1 TO periode un 

1430 IF jour= d -jour: END DEFine 

1440 Mġcanal,0,9 : PRINT#canal,pointeur£ 
1450 canal=canal#i 

1460 END FOR jour 

1470 change pointeur 

1480 test p-0: jour t- jourrl 

1490 POR joursjour t TO d jour 

1500 test ps test prl 

1510 ATicanal, 0,9 : PRINTtcanal, pointeurs 


1920 canal=canal+] 
1530 If test p: long p 
1540 test p-9 

1590 change pointeur 
1960 END IP 


1570 END FOR jour 

1980 END DEFine affiche p 

1990 DEFine PROCedure change pointeur 
1600 IF pointeur$=id p$ 

1610 pointeur$=" * 


1020 ELSE n E numéros par année, 
1630 pointeur$= id p$ 
1640 END IF 
E $10.0 
1690 END DEFine change pointeur “RENE 
Une ouboine quoi! 


Faites parvenir votre abonnement à: 


Réal Gagnon 

ti MC éditeur 
4978 Henr i-Julien 
Montréal Québec 
CAHRDA HT Æt 


Ps, commente i fees SORÉ Free 


Le RGB du QL 


La première fois que j'ai voulu mir l'affichage de mon OL sur un écran cou- 
leur, je ne me doutais pas des difficultés qui m'attendaient, J'ai d'abord 
acheté un moniteur couleur CĦ-4 da Radio Shack: rien à faire. Pour na pas 
perdre la possibilità de resbaursetent si ça ne marchait pas, je n'ai fait 
aucune modification sur Le moniteur. Donc j'ai remplacé la fiche DIN 8 pins 

da l'ordinateur par una 8-3, Il m'a fallu aller au centre de service Radio- 
Shack pour connaitre le “pino U du moniteur, Bref, afin de rendre cospati- 

bie mon moniteur avec non GL, j'ai contacté beaucoup de sonde qui, dans 
begucdup de Cise 1 ient insensibles à mes problèmes, fu bout d'un mois de 
vaine efforts, j'ai la moniteur & Radio Shack. 


T 


Lors de mon deuxième assui, j'ai acheté un tċiżvissur/goniteur 14" RGB de 
ie qualifiqit da meil Leur achat pour le AL, Surprise $i: pas de fil de 
raccordement à lordin i i sur la moniteur est 
du type FIAJ 8 He 3 5 différente hl ia DE g etais surprise #9: une 
fois relié à i js À iiteur ne fonctionne pas. La logo de départ 
circule si vite d'un bord à i autre de l'écran qu'on ne peut ia Lire quoi- 
que la couleur soit bien visible, De pius, tout ces phénomènes visuels 
disparaissent complètement à l'intérieur de 16 secondes. L'opinion des spé- 
cialistes indifférents: incompatibilité viscéraie entre les deux oprargiiss 
acheter du standard, IEĦ PC par exemple... Cependant, j'en ai trouvé un 

lus intelligent que les autres pour me dire que si l'affichage s'éteiqnaits 
c'était que fa signal Sais pi ie 3L était trop fort e et que le contrċie 
igtomatique de niveau prensit une dizaine de secondes à réagir, La remar- 
que était intdraszamta muis comment solutionner ta problème? 


La veille au soir de la journée où je B'Atġis en andu üveg ja vendeur de 
Sears pour retourner Le moniteur en cos d “échecs j ‘ai téléphoné à notre 
courage éditeur de OL ME, Réal Coonon, pour iui signaler pes problèmes, 
li m'a inform é u il avait eu quelques diff icultés d d'adaptation entra son 


AL et son moniteur Commodore “faiga” mais qu'il avait solutione ie niveau 
irop éleva das signaux du GL en introduisant, en série quec les fi 


raccordement RCE, des diodes dont la cathode était orientés vers 
taur, J'at ajouté une diode (IM4143 ou 1914 ou n'importe lequel d 
siga sur chacune des lignes de synchronisation et... ce fut le sira 
Cle: balla image; beile définition, belles coulas. Il me reste un problè- 
me à solutionner: l'ċtalement horizontal de l'image ma fait perdre un co- 
ractère à gauche et un autre à droite, Guond j'aurai trouvé, je reviendrai 
vous faire part de mon expérience, 


Le choix de ce moniteur ikodċie $ L53S-145d4d) est intéressant parce qu'il 
est aussi un téléviseur couleur: je trouve inadmissible d'investir un tel 
montent uniquement pour l'ordinateur, De plus, il est un récepteur vidéo 
Jul permet de s'en servir comme écran pour la magnétoscope, pour la ca- 
séra vidéo ou pour l'ordinateur de jeux vidéo et... come écron couleur 

à haute définition ġe mon IS-2068. Si le texte est très lisible à 88 ca- 
ractères avec Le BL, il n'y a pas de crainte à avoir avec les 6 ceraciċ- 
du 2868 (our la traitement de texte), Un bouton permet de coaprimar Uime 
qe à 59% verticalement pour une meilleure lecture du texte, Un autre bouton 
pernet de passer, à He monochrome vert, Comme ce ne serait pas 

i ée qudis, ce qui qe donne de petii 
ie haut-parleur du Hi per du so 


Un mangue de design iaportant pour un à 
poignée pour Le transporter iii 

Coment peut-on parler da portatif dans ces 
métrage que j'ai fait pour trouver de l'aide, ay 
bras, j'aurais bien apprécié une poignée, J'en gi ET une telle at sli de, 
J'ai aussi ajouté ue fiche pour écouteur ce qui fait que ma femme aura une 
dent de moins contre mon ordinateur. 


atta tqijisr il n'y a pas de 


aient la peine d'être partagées 
i ge sincigiristes. 


| GIPAHI 


Lors de zon travail (BL 09C c'est bien beau neis il Faut que je mange MISSUIŻ, 
i sant affeire avec des clients avec des probiżnas de ce genre. Pour ce 
RADIO SHACK, si vous saviez fautes les aventures que j'ai su avec 
de leur #f0f TANDY 1800, Par exemple, U autre Jour aa gentil 
s'achéie ur co-processeur 3657 pour son TANBY 1206, 0h surprise! 
ġa Le 3957 ast tastatiż, Le TARDY gèle, SE on t'enlève, tout est bega. de 
conseille ġa au monsieur, après avoir vérifier ie 8537 dens mon sustème MABE 
uniquer vac RABIĠ SHACK car le problċne est avec l'ordinateur 
$ . Croyez-le 80 non après 2 semaines d'i mmorbrables coups de 
RS ies RABID SHACKS montréalais, ies centres de service et nome ou 
ja . infini ème problème, La sonsieur nous revient, c'eri 
poire a tour de faire des téléphones À gui miegx miegxi MIŻBME: Ha 
ERT, nous donne L'infersation at faut fenctisnne…. 


L. 


i 
ika 


ès 
F 
LI 
| 
bi 
, àr 
sendenr 4 f ti 


dent å cour qui disent si on est I8 cenpatible, alors De de problése glers on 
sa denande daas qual ronde ils vivent (voir TARDY). Ea particulier ias cartes 
sidżas, c'est Uenfari isus vouiez de ta couleur? Vaus avez le choix entra COR, 
ESA, FGA, ER ne saut rien, EGR aasi pas vratrent supporté, UDR ect {avenir 
Ris ss les yr de ia tète, fiver ECA et UCA, il Faut des moniteurs spéciaux 
É + Il y a des cartes compatibles GA soins chères, mais ta probline c'est 
53e fonet iane“ pas bien dons les "clanes" (BIOS aen-conpatible) at eiles 
t pas 1007 comgatibie. Le couleur n'est pas iapartanta alors vous avez ime 
cite NORGE HRONE CRAPHIQUE, mais Les jeux ne serche plus car il Faut ane corte 
ECA pour çal Ea plus il y a des problenes du coté des Lecteurs de disgue 
CENK £285,1.378,1.440b), les souris, ies 3000 BIOS différents sur le mmeché at 
j'en passe, 8h la Lai Des problères garantis. Alors qu'en arrêts g ne dire que 
le monde IBM est merveilleux parce que tout est compatible car za ne donne da 
l'yrticaire 1 


ñon moniteur (COMMBSORE 20023 Fonctionne très bien sauf que avec ta OL en plus 
des diodes sur Les Lignes VIDEMS je dois mettre le noniteur on node RER analogue 


cor en RER TIL l'écran roule, Mystère? 


Pour nettre l'horizontale plus petite, ii y a un ajustement dans ie moniteur, il 
S'egit 382 du temps d'une bobine avec un noyau mobile qu'il fast tourner, alle 
est identifier H HIDE habituel lerent. 


Bżal-3 


